(COMMENT BPS 48000. )
(ALLOC '(LIST 40000 40000 NIL))
(PROGN
(DEFPROP KEEP (KEEP FAS DSK (MAC LSP)) AUTOLOAD)
(*RSET NIL)

(COND ((STATUS FEATURE NEWIO)
       (SETQ GC-OVERFLOW 'GC-OVERFLOW-DAEMON))
      (T
       (SSTATUS INTERRUPT 13. 'GC-OVERFLOW-DAEMON) ))

(FASLOAD DEMON FAS DSK (AID RPG))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(FASLOAD NCOMPLR)
(FASLOAD GETMID)
(FASLOAD FASLAP)
(FASLOAD EREAD)
(FASLOAD DIRECT)
(FASLOAD STRING) 
(FASLOAD NCOREQ)
(FASLOAD STACK)
(DEFPROP CGOL (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(DEFPROP CGOLREAD (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(intern 'switchtable)
(INITIALIZE)
(FASLOAD MACROD)
(FASLOAD MATCH)
(*FEXPR EREAD)
(*FEXPR CODE)
(*FEXPR MAIL)
(SPECIAL ↑Q ↑R ↑W ↑V)
(FASLOAD LOADED)
(REQUIRE DEFSYM 1 DSK (MAC LSP))
;(FASLOAD UTIL FAS DSK (AID RPG))
(FASLOAD CASEQ FAS DSK (AID RPG))
;(SETSYNTAX 44. 500500 44.)		;Comma
'DONE)